﻿Imports System.Text.RegularExpressions
Public Class FindFormCodeById
    Public Overrides Sub Find()
        MyBase.Find()
        FindTextEventForm(Me.txtFindText.Text, 1)
    End Sub

    Private Sub txtFindText_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtFindText.KeyPress
        '应许输入退格键 C# 强制转换
        If Asc(e.KeyChar) <> 8 Then
            '正则验证数字
            If (Not Regex.IsMatch(e.KeyChar.ToString(), "^[0-9]$")) Then
                e.Handled = True
                Return
            End If
        End If
    End Sub

    Public ReadOnly Property FirstControlId12() As System.Windows.Forms.Control
        Get
            Return txtFindText
        End Get
    End Property
End Class
